with Ada.Text_IO; use Ada.Text_IO;

package body Diplome.IO is

   procedure lire(Nom_Fichier : in String; Diplome : out Type_Diplome) is
      Fichier : File_Type;
   begin
      Open(File => Fichier,
           Mode => In_File,
           Name => Nom_Fichier,
           Form => "");
   end Lire;

   procedure ecrire(Nom_Fichier : in String; Diplome : in Type_Diplome) is
      Fichier : File_Type;
   begin
      Ada.Text_IO.Open(File => Fichier,
                       Mode => Out_File,
                       Name => Nom_Fichier,
                       Form => "");
   end ecrire;

end Diplome.IO;